home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World 2009 February / PCWFEB09.iso / Software / Freeware / ReNamer 5.40 / ReNamer.exe / {app} / Scripts / Date and Time.pas next >
Pascal/Delphi Source File  |  2007-02-13  |  217b  |  9 lines
  1. var
  2.   DateTime: TDateTime;
  3.  
  4. begin
  5.   DateTime := FileTimeModified(FilePath);
  6.   FileName := WideExtractBaseName(FileName) +
  7.     FormatDateTime(' (dd-mmm-yyyy)', DateTime) +
  8.     WideExtractFileExt(FileName);
  9. end.